مغال تطبيقي متكامل على بيدَة 10.1د بالنمط المتصل 


,فهد آل قاسم 
fhdalqasem @ibbotday.net‏ 


الأعمدة السبعة لتقنية ۸0.۸۴٤7‏ من مايكروسوفت 
هذا المقال التوضيحي كتبه 


الرقم سبعة له بصمة واضحة لا يمكن تجاهلها في تاريخ البشريةء 


وعموفاقان الموفين النادسن كما سيأتي» لا يقلان أهمية عن باقي مكونات هذه التقنية التي لا يستغني عنها 
نظم المعلومات الجيدة. 
COMMAND CONNECTION‏ 


العمود الثالث كائن قارىئ البيانات DA AREADÊER‏ العمود الرابع کائن مئ llڊlyنlٽ DATAADAPTER‏ 
العمود الخامس كائن مجموعة البیانات ۸5۴7 COMMANDBUILDER D۸7‏ 
العمود السابع کائن رڊبb‏ llبlyنlٽ DATABINDING‏ 


آAD0.N۴:‏ تعرف بأنها مجموعة من الفئات وعءءه|ع للتعامل مع مصادر البيانات فاذا أردنا الاتصال بقاعدة بيانات ما 
والتعامل مع بيانات موجودة فيها أو إضافة بيانات جديدة لها متثل أوراكل أو أكسس من خلال بيئة الدوت نت فسوف تقوم 

.A0.N 1‏ تم تصمیم ۸00.٤۲‏ في الأساس للعمل مع قواعد البيانات . ويمكنذ ADO.NET‏ 
مهمة للعمل مع النمط غير المتصل. 


. هو الكائن المخصص للاتصال بقواعد البيانات‎ :Connection 


كائن قارئي llبيlنlت :Data Reader‏ دم للقراءة فقط والبيانات يمكن قراءتها إلي الأمام و لا يمكن الرجوع إلي الخلف 


كائن مهيئ البيانات عام ةك هه0: يقوم بتعبئة البيانات من قواعد البيانات إلي اعءهه0 وكذلك يقوم بتنفيذ التعديلات 
التي أجريت علي مجموعة البيانات و عكسها على قواعد البيانات . 

مجمو عة البيانات اع aة0:‏ هي مجموعة من الأنظمة البرمجية تخزن فيها البيانات في الذاكرة وتسمح بإدارتها.أيضا هي 
اة عن فاعدة وتات رة مو خركة في الذاكرة تكفا من انشاة خداول رظ هه الك ارق اقات وهي لا ية 


OledbCommandBuilder -‏ : یستخدم هذا الکائن Adapter‏ tھط‏ لاختیار وإدخال 


كائن ربط البيانات ع”اك "8ه : يقوم هذا الكائن بربط قيمة إحدى خصائص كائن ما بإحدى خصائص أداة معينة بحيث 
يتم وضع قيمة خاصية الأداة تلقائيا كلما تغيرت : تصبح الخاصيتين كأنهما خاصية واحدة . 
استخدام هذا الكائن في ربط محتويات 
( مثل خاصية النص التاب ( 


يوضح ADO.NET JI‏ آنها النمط غير المتصل. 
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Figure 15-17. Using a DataSet with ADO.NET 


جامعة العلوم والتكنولوجيا - فرع إب 


برمجة مرئية 
مثال تطبيقي متكامل على بيئة 4d0.‏ 
: .فهد آل قاسم 
fhdalqasem @ yahoo.com‏ 
هذا المثال يتكون من واجهات إدخال» وتقرير واحد» ليعطي مثالا مبسطا لمشر من جهة الأفكار 


والكود المكتوب» حيث يحتوي عمليات الإدخال والتنقل العاديةء وعملیات معالجة الإدخال الأكثر تعقيداء وأخيرا تقرير 
مبسط وفق تقنية ميكروسوفت للتقارير. 
وكل الأكواد في هذا المثال مكتوبة وفق النمط المتصل الذي يستخدم أهم كائنات تقنية ال .هله 
هو قارئ البيانات المشروح سابقا. 
)١‏ الواجهات: 


رقم القسم ¶ 


القست المالية 
الموقع 


الشغون الإدارية 


السجل الشهري لغياب الساعات. 
اسر الموظف قاسم 


قأریخ الیو | ۲۹/۳-۰ ۰۰1۰:ص 


عدد الساعات ”۳ 


الجمهورية اليمنية 
الشركة المتحدة للإتصلات 


رقم الموظلف 


۲ 


۳ 


٤ 


اال غ 
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أحمد 
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عبده 


ل حفط | 


BE frmrep_emp 
IRM a1 


٣‏ الشيفرات البرمجة: 
شيفرة الواجهة الرئيسية (على بساطته): 
Public Class mainfrm‏ 


Private Sub btn dept Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btn dept.Click 
frm dept. Show () 
frm emp .Close () 
frm hrs.Close () 
frm prj.Close () 


End Sub 


Private Sub btn _ emp_ Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btn_emp.Click 
frm dept .Close () 
frm_ emp. Show () 
frm hrs.Close () 
frm prj.Close () 
End Sub 


Private Sub btn _ projects Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btn_projects.Click 
frm dept .Close () 
frm emp .Close () 
frm _ hrs.Close() 
frm_prj. Show () 
End Sub 


Private Sub btn absence _ Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btn_absence.Click 
frm dept .Close () 
frm emp .Close () 
frm hrs. Show () 
frm prj.Close () 
End Sub 


Private Sub btn _ close _ Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btn _ close.Click 
Application. Exit () 
End Sub 


Private Sub btn _reports_ Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btn_reports.Click 
frmrep_emp. Show () 
End Sub 


Imports System.Data. OleDb 
Public Class frm _ dept 
Dim cn As New OleDbConnection 
Dim dtst As New DataSet 
Dim dtadpt As New OleDbDataAdapter 
Dim bs As BindingSource 
Dim auto_number As Integer = 0 


Private Sub frm dept Load(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles MyBase. Load 

Dim str As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data 
Source=EMPDB.mdb; Persist Security Info=False" 

cn.ConnectionString = str 

cn. Open () 

dtadpt = New OleDbDataAdapter ("select*from tbl _ dept", cn) 

dtadpt.Fill (dtst, "dept") 

cn.Close () 


txt_deptno.ReadOnly = True 
Try 
bs = New BindingSource (dtst, "dept") 
txt_ deptno.DataBindings.Add ("text", bs, "deptno") 
txt_dname.DataBindings.Add ("text", bs, "dname") 
txt_loc.DataBindings.Add("text", bs, "location") 
Catch ex As Exception 
End Try 


bs.Position = 0 
bs.Position = bs.Count — 1 
If bs.Count —- 1 <> 0 Then 
auto_number = CInt (txt_deptno. Text) 
End If 


End Sub 


Private Sub btn _ first _ Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btn _first.Click 
bs.Position = 0 
End Sub 


Private Sub btn_ next Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btn_next.Click 
If bs.Position < bs.Count - 1 Then 
bs.Position += 1 
Else 
MsgBox (" ("الأحير‎ 
End If 
End Sub 


Private Sub btn _ close _ Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btn _ close.Click 
Me.Close () 
End Sub 


Private Sub btn_previous_Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btn_previous.Click 
If bs.Position > 0 Then 
bs.Position —= 1 
Else 
MsgBox (" "( 
End If 
End Sub 


Private Sub btn last _ Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btn _last.Click 
bs.Position = bs.Count — 1 
End Sub 


Private Sub btn add Click (ByVal sender As System.Object, ByVal e As 


System.Object, ByVal e As 


System.EventArgs) Handles btn _ add.Click 
MsgBox يجب"(‎ "( 
bs.AddNew () 
auto_number += 1 
txt_deptno.Text = auto_number 
txt_ dname.Focus () 
End Sub 


Private Sub btn edit _ save Click (ByVal sender As 
System.EventArgs) Handles btn edit _ save.Click 
Dim ds As New DataSet 


Dim cmdbldr As New OleDbCommandBuilder (dtadpt ) 


Try 
bs.EndEdit () 
If dtst.HasChanges Then 
ds = dtst 
dtadpt . Update (ds. Tables ("dept") ) 
dtst.AcceptChanges () 
End If 
Catch ex As Exception 
End Try 
MsgBox (" العملية‎ "( 
End Sub 


Private Sub btn delete Click (ByVal sender As System.Object, ByVal e As 


(" تÎİكıuد" MsgBoxStyle.YesNo,‏ 
iii‏ نموذج بيانات موظف: 


Object, ByVal e As 


OLEDB.4.0;Data 


System.EventArgs) Handles btn delete.Click 
IÊ MsgBox ("Ja ر‎ 
= MsgBoxResult. Yes Then 
bs. RemoveAt (bs.Position) 
End If 
End Sub 
End Class 


Imports System.Data. OleDb 
Public Class frm_emp 
Dim cn As New OleDbConnection 
Dim cmd As New OleDbCommand 
Dim dtst As New DataSet 
Dim dtadpt As New OleDbDataAdapter 
Dim ds_counter As Integer = 0 
Dim str_ dno As String = 1 


Private Sub frm emp Load (ByVal sender As System. 
System.EventArgs) Handles MyBase. Load 


Dim str As String = "Provider=Microsoft. Jet. 
Source=EMPDB.mdb; Persist Security Info=False" 

cn.ConnectionString = str 

cn. Open () 


'cmd.Connection = cn 
'cmd. CommandText = "select*from tbl_ emp" 


cmd = New OleDbCommand ("select*from tbl _ emp", cn) 

dtadpt .SelectCommand = cmd 

'or dtadpt = New OleDbDataAdapter ("select*from tbl_emp", cn) 
dtadpt.Fill (dtst, "emp") 

cn.Close () 

Try 


txt_ empno . Text dtst.Tables ("emp") .Rows (0) . Item ("empno") 
txt_ename.Text = dtst.Tables ("emp") .Rows (0) .Item ("ename") .ToString 
txt_eaddress.Text = dtst.Tables ("emp") .Rows (0) .Item ("eaddress") .ToString 
cmb_esex.Text = dtst.Tables ("emp") .Rows (0) .Item ("esex") .ToString 
str_dno = dtst.Tables ("emp") .Rows (0) .Item ("deptno") .ToString 

Catch ex As Exception 


End Try 
'dr_ counter += 1 'dr_ counter = dr counter + 1 


Dim da As New OleDbDataAdapter ("select*from tbl dept", cn) 
da.Fill (dtst, "dept") 

cmb_dname.DataSource = dtst.Tables ("dept") 
cmb_dname.DisplayMember = "dname" 

cmb_dname.ValueMember = "deptno" 

cmb_dname. SelectedValue str_ dno 


End Sub 


Private Sub btn _ close _ Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btn _ close.Click 
Me.Close () 
End Sub 


Private Sub btn _first1 Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btn _first.Click 
ds_counter = 0 
dtstmovrow () 


End Sub 


Private Sub btn_next Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btn_next.Click 
ds_counter += 1 
If ds_counter <= dtst.Tables ("emp") .Rows.Count —- 1 Then 
dtstmovrow () 
Else 
MsgBox (" ("الأحير‎ 
ds_counter -= 1 
End If 
End Sub 


Private Sub btn_ previous Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btn_previous.Click 
ds_counter -—= 1 
If ds_counter >= 0 Then 
dtstmovrow () 
Else 
MsgBox (" "( 
ds_counter += 1 
End If 
End Sub 


Private Sub btn last _ Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btn _last.Click 
ds_counter = dtst.Tables ("emp") .Rows.Count — 1 
dtstmovrow () 
End Sub 


Private Sub btn add Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btn add.Click 
If btn add.Text = " " Then 
txt _ eaddress.Clear () 
txt_empno. Clear () 
txt _ ename. Clear () 
MsgBox (" و جديید» بيانات‎ "( 
btn add.Text = " 1 
txt_empno.Focus () 
Else 
dtst.Tables ("emp") .Rows.Add (New Object () {txt_empno.Text, txt_ename. Text, 
cmb_esex.Text, txt eaddress.Text, cmb_ dname. SelectedValue} ) 
btn add.Text = " N 
send data_to_db () 
End If 


End Sub 


Private Sub btn edit save _ Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btn edit _ save.Click 
dtst.Tables ("emp") .Rows (ds_counter) ("empno") = txt_empno. Text. ToString 
dtst.Tables ("emp") .Rows (ds_counter) ("ename") = txt_ename. Text. ToString 
dtst. Tables ("emp") .Rows (ds_counter) ("esex") = cmb_esex.Text.ToString 
dtst. Tables ("emp") .Rows (ds_counter) ("eaddress") = txt_ eaddress.Text.ToString 
dtst. Tables ("emp") .Rows (ds_counter) ("deptno") = 
cmb_dname. SelectedValue. ToString 
send data_to_db () 
End Sub 


Private Sub btn delete Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btn delete.Click 
IÊ MsgBox ("Ja ", MsgBoxStyle. YesNo, 
تأكيد"‎ ") = MsgBoxResult .Yes Then 
dtst.Tables ("emp") .Rows (ds_ counter) .Delete () 
send data_to_db () 
btn first1 Click (sender, e) 
End If 
End Sub 
صناديق قيمة هلأه'‎ 
Private Sub dtstmovrow () 
txt_empno.Text = dtst.Tables ("emp") .Rows (ds_counter) . Item ("empno") .ToString 
txt_ename.Text = dtst.Tables ("emp") .Rows (ds_ counter) .Item ("ename") .ToString 
txt eaddress.Text = 
dtst.Tables ("emp") .Rows (ds_counter) .Item ("eaddress") .ToString 
cmb_esex.Text = dtst.Tables ("emp") .Rows (ds_counter) .Item ("esex") .ToString 
str_dno = dtst.Tables ("emp") .Rows (ds_counter) .Item ("deptno") .ToString 
cmb_ dname. SelectedValue = str_ dno 
End Sub 
Private Sub send data_to_db() 
Try 
Dim ds As New DataSet 
If dtst.HasChanges Then 
ds = dtst 
Dim cmbbldr As New OleDbCommandBuilder (dtadpt ) 


dtadpt . Update (ds. Tables ("emp") ) 
dtst.AcceptChanges () 
End If 
Catch ex As Exception 
MsgBox (ex.Message) 
End Try 
End Sub 
End Class 


.İV 
Imports System.Data. OleDb 


Public Class frm_prj] 
Dim cn As New OleDbConnection 
Dim dtst As New DataSet 
Dim dtadpt As New OleDbDataAdapter 
Dim da0 As New OleDbDataAdapter 
"Dim autoڑ_number‎ As Integer = 0 
Dim bsprj As BindingSource 


Private Sub frm hrs _ Load (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase. Load 
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data 
Source=EMPDB.mdb; Persist Security Info=False" 
dtadpt = New OleDbDataAdapter ("select*from tbl_ prj", cn) 
dtadpt.Fill (dtst, "prj") 
Dim da As New OleDbDataAdapter ("select*from tbl_emp", cn) 
da.Fill (dtst, "emp") 
da0 = New OleDbDataAdapter ("select*from tbl_prj_emp", cn) 
da0.Fill (dtst, "prjemp") 


bspr] = New BindingSource (dtst, "pr]") 
txt_pname.DataBindings.Add ("text", bsprj, "prjname") 
txt_id.DataBindings.Add ("text", bsprj, "prjno") 


cl_ename.DataSource = dtst.Tables ("emp") 


cl ename.DisplayMember = "ename" 
cl _ename.ValueMember = "empno" 
cl1l_ename.DataPropertyName = "empno" 


cl _ prj.DataSource = dtst.Tables ("prj") 
cl _ pr]j.DisplayMember = "prjname" 

cl prj.ValueMember = "prjno" 

cl prj.DataPropertyName = "projno" 


dtgr_prjemp.DataSource = dtst.Tables ("pr jemp") 
End Sub 


Private Sub btn add Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btn add.Click 
bsprj].AddNew () 
txt _ id.Focus () 
End Sub 


Private Sub Button1l Click 1 (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button1.Click 
Me.Close () 
End Sub 


Private Sub btn _ savetoprj]_Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btn _savetoprj.Click 
bsprj].EndEdit () 
If dtst.HasChanges Then 
Dim ds As New DataSet 
ds = dtst 
Dim cmdbldr As New OleDbCommandBuilder (dtadpt) 
dtadpt . Update (ds, "prj") 
dtst .AcceptChanges () 
End If 
End Sub 


Private Sub btn _savetodb_ Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btn_savetodb.Click 


If dtst.HasChanges Then 
Dim ds As New DataSet 
ds = dtst 
Dim cmdbldr As New OleDbCommandBuilder (da0) 
da0 .Update (ds, "prjemp") 
dtst .AcceptChanges () 

End If 

End Sub 


Private Sub btn addtodtgrid Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btn addtodtgrid.Click 
dtgr_ prjemp.Enabled = True 
dtgr_prjemp.ReadOnly = False 
dtgr_ prjemp.AllowUserToAddRows = True 
dtgr_prjemp.AllowUserToDeleteRows = True 
End Sub 
End Class 


س. شيفرة أو كود نموذج ساعات غياب الموظف: 
Imports System.Data. OleDb‏ 


Public Class frm_hrs 
Dim cn As New OleDbConnection 
Dim dtst As New DataSet 
Dim dtadpt As New OleDbDataAdapter 
"Dim auto_number As Integer = 0 
Dim bs As BindingSource 


Private Sub frm _ hrs _ Load (ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles MyBase. Load 

txt date.Text = Today.Date.Date 

1bl1_mnth.Text = changemonth (CInt (Today.Month. ToString) ) 

'cmb_ day.Text = Today.DayOfWeek.ToString 

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data 
Source=EMPDB.mdb; Persist Security Info=False" 

dtadpt = New OleDbDataAdapter ("select*from tbl_ hours", cn) 

dtadpt.Fill (dtst, "hours") 


Dim da As New OleDbDataAdapter ("select*from tbl_emp", cn) 


" empno " ) 


da.Fill (dtst, "emp") 
cmb_empno.DataSource dtst. Tables ("emp") 
cmb_empno.DisplayMember = "ename" 


cmb_empno.ValueMember = "empno" 

bs = New BindingSource (dtst, "hours") 

txt date.DataBindings.Add ("text", bs, "thedate'") 
txt_hrs.DataBindings.Add ("text", bs, "num_hrs") 


cmb_day.DataBindings.Add ("text", bs, "dayname") 
cmb_empno.DataBindings.Add ("selectedvalue", bs, 


CInt (Today.Month.ToString) 
New DateTime (2010, mnth, 1) 
"thedate >='" & xdate.ToString & 


Dim mnth As Integer 
Dim xdate As Date 
bs.Filter 


dtgr_emphrs.DataSource bs 


End Sub 


Private Sub Button1l_ Click (ByVal sender As System.Object, ByVal e As 


System.EventArgs) Handles Button1.Click 


'dtst. Tables ("hours") 

Dim thecount As Integer 0 

btn _fltr. Text = "iıفصi"‎ 

btn _fltr Click (sender, e) 

For i 0 To dtgr_ emphrs. RowCount — 1 


thecount += CInt (dtgr_emphrs (3, i) .Value) 
Next 
Dim strmsg As String = " القيدة‎ 1 
strmsg = strmsg & cmb_empno.Text.ToString '& Chr (13) 
strmsg = strmsg & "=" & thecount.ToString 
strmsg = strmsg & Chr (13) & " Jه الغياب تقرير‎ " & 


MsgBoxResult . Yes 
"=" & thecount.ToString 


sNo, " رصيد‎ "(7 
& cmb_empno. Text & 


cmb_empno. Text. ToString 
If MsgBox (strmsg, MsgBoxStyle. Ye 
Then lbl_ msg. Text 1bl_ msg.Text & " " 
End Sub 


Private Sub cmb_empno_SelectedIndexChanged (ByVal sender As System.Object, 


__empno.SelectedIndexChanged 


ByVal e As System.EventArgs) Handles cmb 


End Sub 


Private Sub ButtonS5_Click (ByVal sender As System.Object, ByVal e As 


System.EventArgs) Handles btn_exit.Click 
Me.Close () 
End Sub 


Function changemonth (ByVal x As Integer) As String 


Select Case x 
Case 1 
Return "رڙılia"‎ 
Exit Function 


Case 2 

Return "رڙيl‎ رıف"‎ 
Case 3 

Return " 
Case 4 

Return "Jلıربإ"‎ 
Case 5 

Return "Jıربإ"‎ 


Case 6 


and 


Return "Jıربإ"‎ 


Case 7 
Return "Jلıربإ"‎ 
Case 8 
Return "Jıربإ"‎ 
Case 9 
Return "Jıربإ"‎ 
Case 10 
Return "Jلıربإ"‎ 
Case 11 
Return "Jıربإ"‎ 
Case 12 
Return "Jلıربإ"‎ 
End Select 


End Function 


Private Sub Button6_Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button6.Click 
If Button6.Text = " "البيیانات‎ rhen 
dtgr_emphrs.ReadOnly = False 
Button6.Text = " ا‎ 


Else 
dtgr_emphrs.ReadOnly = True 
Button6.Text = " "البيانات‎ 
End If 
End Sub 


Private Sub btn add Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btn add.Click 
bs. AddNew () 
txt _ date.Text = Now.Date.Date 
cmb_empno.Focus () 
End Sub 


Private Sub btn _ save _ Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btn_save.Click 
Try 
bs.EndEdit () 
If dtst.HasChanges Then 
Dim ds As New DataSet 
Dim cmdbldr As New OleDbCommandBuilder (dtadpt ) 
ds = dtst 
dtadpt . Update (ds. Tables ("hours") ) 
dtst .AcceptChanges () 
End If 
Catch ex As Exception 
MsgBox (ex.Message) 
End Try 


End Sub 


Private Sub btn fltr Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btn _fltr.Click 


If btn_fltr.Text = "iı. dni" Then 
Dim mnth As Integer = CInt (Today.Month.ToString) 
Dim xdate As Date = New DateTime (2010, mnth, 1) 
bs.Filter = "empno='" & cmb_empno. SelectedValue.ToString & " 
thedate >='" & xdate.ToString & "'" 


btn fltr.Text = " ¥ 


Else 
bs.Filter = "" 
cl _ name.Visible = True 
btn _fltr.Text = "ika" 
End If 
End Sub 


Private Sub cmb_ day SelectedIndexChanged (ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles cmb_ day. SelectedIndexChanged 


End Sub 
End Class 


.VÎ‏ کود نموذج عرض التقرير: 


Private Sub frmrep_emp_ Load (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase. Load 
"TODO: This line of code loads data into the 'EMPDBDataSet .TBL_EMP' table. 

You can move, or remove it, as needed. 

Me.TBL EMPTableAdapter.Fil1l (Me. EMPDBDataSet . TBL_EMP ) 

Me.ReportViewerl. SetDisplayMode (DisplayMode.PrintLayout) 

Me.ReportViewerl. ZoomMode = ZoomMode. Percent 

Me. ReportViewerl .RefreshReport () 

End Sub 
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# Page Footer 


شرح لمجموعة من المقاطع المهمة الموجودة في المشروع: 


اورقا و ف ر ا ال ع ان ات و وة ف ا 0و ر م 
البيانات dtadp{‏ ءل_1ط)ء ومن ثم تعبئة الجدول في المهيئ إلى مجموعة البيانات وتسمية الجدول 
آخر هو ‘“"dept"‏ کمسمی لجدول بیانات داخل مجموعة البيانات. 


Dim str As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data 
Sources=EMPDB.mdb;Persist Security Info=False" 
cn.ConnectionString = str 
cn.Open() 
dtadpt = New OleDbDataAdapter(""select*from tbl_dept", cn) 
dtadpt.Fill(dtst, "dept") 
cn.Close() 
الأسطر التالية تقوم بالتالي:‎ . 
یتم ربط أداة الربط‎ )try..catch..end try( 
.dept و بمجمو عة البيانات ول‎ 
عد ذلك ثلاثة أسطر ربط صناديق النص في النموذج بأداة الربط تلك وفق أسماء الحقول التي في الجدول‎ 
txt_deptno.ReadOnly = True 
Try 
bs = New BindingSource(dtst, "dept") 
txt_deptno.DataBindings.Add(""text", bs, "deptno") 
txt_dname.DataBindings.Add(" "text", bs, "dname") 
txt_loc.DataBindings.Add(""text", bs, "location") 
Catch ex As Exception 
End Try 


. المقطع التالي يعمل فقط إذا كانت أداة الربط غير فارغة حسب الشرط أدناه» ويقوم القيمة النصية في 
kx{_deptn0‏ إلى المتغير إعاصسuم_ه)اهء‏ الذي يعمل كعداد لرقم القسم» بدلا عن الترقیم 
التلقائي في قاعدة البيانات» كل هذا بعد تحويل القيمة النصية إلى رقم عبر الدالة أم1ء. 
If bs.Count - 1 <> 0 Then‏ 
auto_number = CInt(txt_deptno. Text)‏ 
End If‏ 


. هذا المقطع يحرك أداة الربط خطوة للأمام بشرط أن لا تكون في آخر سجل» والمقطع الثاني يفعل العكس» 
If bs.Position < bs.Count - 1 Then‏ 
bs.Position += 1‏ 
Else‏ 
("الأخير MsgBox("‏ 
End If‏ 


If bs.Position > O0 Then 
bs.Position -= 1 
Else 
MsgBox(" "( 
End If 
هذا المقطع يكتب في زر الإضافة حيث يسمح لإضافة سجل جديد إلى أداة الربط ثم وضع قيمة برمجيا في‎ . 
وق النص رقم القسم» وبعدھا ینقل الترکیز وںعه؟‎ 
Miss Bo "( 
bs.AddNewÛO 
auto_number += 1 
txt_deptno. Text = auto_number 
txt_dname.Focus) 


. المقطع التالي يوضح عمل الزر حفظ حيث يعرف كائن باني الأوامر إ1dطلطء‏ 
مجمو عة البيانات» ويعمل ضمن مقطع الإستثناء (...لإ٣))‏ : 
إنهاء عملية التحديث في أداة الربط من أجل السماح بحفظ البيانات وذلك بالطريقة )نلم ل۸ع. 
جملة شرط تبحث هل حدث تغيير على مجمو عة البيانات المرتبط بأداة الربط ثم 
في حالة كانت الإجابة نعم للشرط يتم إسناد مجمو عة البيانات الرئيسية ول إلى مجموعة البيانات الجديدة ول 
ا ل ف ا وقد لهات غل لخر وة 
الا درن الحانات التعاتة اتل ار دن ا حف الانات غر اني امز خم غر 
مهيئ البيانات نفسه الذي قمنا بتعبئة مجموعة البيانات به» ویجب تحدید نفس الجدول المقصود. 
بعد ذلك بالطريقة 0(ءعع«2ط٣1معء٥1.۸ء]‏ التي تقوم بقبول التغيرات على مجموعة ة البيانات» نی 
ترسل مرة أخرى لقاعدة البيانات لو تم الضغط مرة أخرى على زر الحفظ المحتوي على هذا الكود. 


Dim ds As New DataSet 
Dim cmdbldr As New OleDbCommandBuilder(dtadpt) 
Try 
bs.EndEdit() 
If dtst.HasChanges Then 
ds = dtst 
dtadpt.Update(ds.Tables("dept")) 
dtst. AcceptChangesO) 
End If 
Catch ex As Exception 
End Try 
MsgBox(" العملية‎ "( 
End Sub 


. المقطع الصغير التالي يحذف البيانات من أداة الربط فقط ويحتاج إلى الضغط عل 
قاعدة البيانات الإاصلةء وقد بدأنا بصندوق رسائل (yes,n0) msgbox‏ لتأکید الحذف. 
ج تيد" If MsgBo0x( "Ja ", MsgBoxStyle. YesNo,‏ 
MsgBoxResult. Yes Then‏ 


bs.RemoveAt(bs.Position) 
ي يوضح عملية ربط صناديق النص ببيانات أول صف في جدول البيانات مع‎ . 
مجمو عة البيانات و)ل» وذلك وفق كل حقل وصندوق النص المقابلء وهذه الطريقة تستخدم للإستغناء عن أداة‎ 
وهي أكثر أمانا لكنها أكثر صعوبة للمبرمج.‎ > 
Try 
txt_empno. Text = dtst.Tables("emp").Rows(0).Item("empno") 
txt_ename. Text = dtst. Tables("emp").Rows(0).Item("ename").ToString 
txt_eaddress. Text = dtst.Tables("emp").Rows(0).Item("eaddress").ToString 
cmb_esex.Text = dtst.Tables("emp").Rows(0).Item("esex").ToString 
str_dno = dtst.Tables("emp").Rows(0).Item("deptno").ToString 
Catch ex As Exception 
End Try 
المقطع التالي يوضح عملية تعبئة الصندوق المنسدل بيانات الجدول الأب» حيث يحمل بيانات القسم الإسم‎ . 
والرقم» ويعرض الإسم» ولكنه يخزن الرقم ليعمل في جدول إبن» مثل جدول الموظفين.‎ 
فيضبط القيمة المعروضة وهي اسم القسم حسب‎ cnط_nهme.Selected‎ Value = str _dno 
: محدد هو المتغير 0دل_)ء وهذه القيمة مأخوذة من الجدول الإبن كما في المقطع‎ 


cmb_dname.DataSource = dtst.Tables("dept") 
cmb_dname.Display Member = "dname" 
cmb_dname.ValueMember = "deptno" 
cmb_dname.Selected Value = str_dno 
المقاطع التالية توضح عملية التنقل بين السجلات بدون أداة ربط وإنما باستخدام مجموعة البيانات»‎ 
. dtstmovrow (Û ds_counter 


ds_counter += 1 
If ds_counter <= dtst.Tables("emp").Rows.Count - 1 Then 
dtstmovrow (0) 
Else 
MsgBox(" ("الأخير‎ 
ds_counter -= 1 
End If 
ds_counter -= 1 
If ds_counter >= 0 Then 
dtstmovrow (Û 
Else 
MsgBox(" ") 
ds_counter += 1 
End If 
ds_counter = dtst.Tables("emp").Rows.Count - 1 
dtstmovrow() 


المقطع التالي يوضح عملية تعبئة صف بالبيانات من صفوف جدول البيانات (مإء) 
مجمو عة البيانات ءل » وذلك عبر متغير مؤقت من نوع كائن» يقوم هذا المتغير بتعبئة صف كامل مرة 
واحدة» ونستخدم هذه الطريقة للكتابة مباشرة إلى مجموعة البيانات بدون استخدام أداة الربط, 
_ata_t0ل_4‏ مء الموضحة أدناه» والتي ترسل البيانات إلى قاعدة البيانات. 
dtst.Tables("emp").Rows.Add(New Object) {txt _empno. Text, txt_ename. Text,‏ 
cmb_esex. Text, txt_eaddress.Text, cmb_dname.SelectedValue})‏ 
btn_add.Text = "‏ 
send_data_to_db(0)‏ 
End If‏ 
هذه الأسطر توضح عملية تعديل بيانات صفوف معينة من جدول البيانات مء في مجموعة البيانات 
)> وذلك عبر تحديد رقم الصف بالمتغير إعارuاهمء_ءل»‏ وتحديد اسم العمود بعده مباشرة» وهو يتعامل مع 
جدول البيانات المذكور كأنه مصوفة من بعدين بالطريقة ( (. 
dtst.Tables("emp").Rows(ds_counter)("empno") = txt_empno. Text. ToString‏ 
dtst.Tables("emp").Rows(ds_counter)("ename") = txt_ename. Text. ToString‏ 
dtst.Tables("emp").Rows(ds_counter)("esex") = cmb_esex. Text. ToString‏ 
dtst.Tables("emp").Rows(ds_counter)("eaddress") = txt_eaddress. Text. ToString‏ 
dtst.Tables("emp").Rows(ds_counter)("deptno") = cmb_dname.Selected Value. ToString‏ 
send_data_to_db( )‏ 
هذا 
dtst.Tables("emp").Rows(ds_counter)("empno") = txt_empno. Text. ToString‏ 
يم أن يكتب بالصورة: 
dtst.Tables("emp").Rows(ds_counter).item("empno") = txt_empno. Text. ToString‏ 
وحيث أن الخاصية التلقائية ( راإممهإم uاوfم)‏ للكائن صف البيانات هي "ه)ة فيمن تجاوزها وعدم كتابتها. 


هذا الكود يحذف بيانات صف من مجموعة البيانات مباشرة» دون إستخدام كائن ربط البيانات» 
تيد" If MsgBo0x( "Ja ", MsgBoxStyle. YesNo,‏ 
MsgBoxResult. Yes Then‏ = )" 
dtst.Tables("emp").Rows(ds_counter).Delete)‏ 
send_data_to_db(0‏ 
btn_first1_Click(sender, e)‏ 
End If‏ 


هذه لت ڊliıaھl‏ ) dtstmovrow(‏ قيمة صنادیق 
السجل الحالي بالخاصية .ع1 التي تتبع كائن صف البيانات سه والذي يتبع بدوره 
كائن جدول البيانات وع1طه] وكلها تتبع كائن مجمو عة البيانات عءه)هل وهي هنا ال ول. 
هذا الکود إذا کنا لا نستخدم كائن ربط البيانات .binding source‏ 
Private Sub dtstmovrow( )‏ 

txt_empno. Text = dtst. Tables("emp").Rows(ds_counter).Item("empno").ToString 
txt_ename. Text = dtst. Tables("emp").Rows(ds_counter).Item("ename").ToString 
txt_eaddress. Text = dtst.Tables("emp").Rows(ds_counter).Item("eaddress"). ToString 
cmb_esex.Text = dtst. Tables("emp").Rows(ds_counter).Item("esex").ToString 
str_dno = dtst.Tables("emp").Rows(ds_counter).Item("deptno").ToString 


cmb_dname.SelectedValue = str_dno 
End Sub 


1 هذه الدالة فتستخدم لإرسال البيانات زك اتات 
البيانات» المعرفة في سلسلة الإتصال» وعملية الإضافة قد سبقت في المقطع ٠»‏ حيث تم إستدعاء هذه الدالة 
بعد عملية الإدخال. 
Private Sub send_data_to_dbÛ‏ 
Try‏ 
Dim ds As New DataSet‏ 
If dtst.HasChanges Then‏ 
ds = dtst‏ 
Dim cmbbldr As New OleDbCommand Builder(dtadpt)‏ 
dtadpt.Update(ds.Tables("emp"))‏ 
dtst. AcceptChangesO)‏ 
End If‏ 
Catch ex As Exception‏ 
MsgBox(ex.Message)‏ 
End Try‏ 
End Sub‏ 


لسطرين التاليين يستخدمان كائن التأريخ ۲050۸۷ الذي يعطي تأريخ اليوم» في السطر الأولء ثم 
يستخدم الدالة طإأممصععمهطء التي عرفناها بالأسفل للحصول على إسم الشهر المعروف رقمه. 
txt_date.Text = Today.Date.Date‏ 
1b1_mnth.Text = changemonth(CInt(Today.Month. ToString))‏ 


التالي يعرف حقلين للأداة >مطاهطدرهع التي اسمها ممص ع_طاء» هما حقلا رقم الموظف 
الموظف» حيث يتم عرض الإسم وتخزين الرقم لإستخدام الرقم المقابل لكل إ . 
cmb_empno.DataSource = dtst.Tables("emp")‏ 
cmb_empno.DisplayMember = "ename"‏ 
cmb_empno. ValueMember = "empno"‏ 


التالي قد تم شرحه في المقطع والإضافة هنا هي استخدام انخاصية selectedvalue‏ 
لتعريف رقم الموظف بدلا عن اسم الموظف المعروض. 
bs = New BindingSource(dtst, "hours")‏ 
txt_date.DataBindings.Add(""text", bs, "thedate")‏ 
txt_hrs.DataBindings.Add(""text", bs, "num_hrs")‏ 
cmb_day.DataBindings.Add("text", bs, "dayname")‏ 
cmb_empno.DataBindings.Add("selectedvalue", bs, "empno")‏ 


1 يوضح عملية استخدام كائن ربط البيانات كفلتر لترشيح بيانات الجدول الموجودة فيهء 
وهو يشبه جملة .select where‏ 
يث تم تعريف متغير رقمي في السطر الأول يأخذ رقم الشهر الحاليء ومن ثم عرفنا المتغير عاول× 
تأريخ حيث يستخدم الدالة مص )6هل لوضع التأريخ المطلوب تمريره لجملة الترشيح في السطر الثالث. 
Dim mnth As Integer = CInt(Today.Month.ToString)‏ 
Dim xdate As Date = New DateTime(2010, mnth, 1)‏ 
bs.Filter = "thedate >=” & xdate.ToString & "™‏ 
التالي يوضح كيفية ربط كائن شبكة البيانات سع ۷1 ل1اعهاهل؛ والذي اسمه هنا 
p5‏ صe_اع)ا‏ بمصدر لملئ بیاناتها تلقائیاء وهي هنا ئ ويمكن إسنادها إلى 
بيانات ي ع لمجموعة البيانات» ولكن ميزة كائن الربط هي الموضحة أعلاه» ميزة الترشيح لعرض 
البيانات المختارة في شبكة البيانات. 
dtgr_emphrs.DataSource = bs‏ 


التالية تقوم بتعبئة المتغير ٤م‏ ںهءع.] بقيمته السابقة» وإضافة القيم الموجودة في الشبكة 
و ز» حيث تقوم قة بالمرور على جميع صفوف الشبكة 


For i = 0 To dtgr_emphrs.RowCount - 1 
thecount += CInt(dtgr_emphrs(3, 1). Value) 
Next 


هذه الدالة تحول رقم الشهر العائد من الدالة الموضحة في المقطع ال ار ترف 
الممر» وفيها خطأ بالطبع يتعلق بكتابة الأشهر كاملة يمكن للطالب تصحيحه. 


Function changemonth(By Val x As Integer) As String 
Select Case x 
Case 1 
Return " "نير‎ 
Exit Function 
Case 2 
Return " "فبر اير‎ 
Case 3 
Return " 
Case 4 
Return " يربl"‎ 
Case 5 
Return "Jıرب!"‎ 
Case 6 
Return "Jıرب)"‎ 
Case 7 
Return "Jıربl"‎ 
Case 8 
Return "Jıربl"‎ 


U 


Case 9 

Return "Jıربl"‎ 

Case 10 
Return "Jıربl"‎ 

Case 11 
Return "Jıرب)"‎ 

Case 12 
Return "Jıربl"‎ 

End Select 

End Function 


هذ الأسطر تضيف صفا جديد إلى الجدول المرتبط بكا وء وتضع تأريخ اليوم في الصندوق 
المحدد بالسطر الثانيء وتنقل التركيز (مؤشر الكتابة هنا) 
bs.AddNewÛO‏ 
txt_date.Text = Now.Date.Date‏ 
cmb_empno.Focus()‏ 
1 التالي يكرر ما شرح في المقطع حيث يرشح بيانات كائن الربط. 
""' = 6۲ ۴1.ءط فيلغي أي ربط على كائن الربط ويعرض جميع الصفوف/ 


Dim mnth As Integer = CInt(Today.Month.ToString) 
Dim xdate As Date = New DateTime(2010, mnth, 1) 
bs.Filter = "empno=”™ & cmb_empno.SelectedValue.ToString & "’ and thedate >=” & 
xdate.ToString & "”™ 
bs.Filter = "" 
cl_name. Visible = True 
btn_fItr. Text = "تصفة"‎ 


: كود نموذج عرض التقرير التالي يتكون من الأسطر الأربعة التاليةء في السطر الأول يتم تعبئة 
مجمو عة بيانات مرئيةء بالجدول م_ع_1ط] عبر مهيئ البيانات المرئي هو 1 یحدد 
لكائن التقارير أن يعرض في وضع الطباعةء أما السطر الثالث فيحدد تكبيره بالنسبة المئوية التلقائية 

%» وأخيرا يقوم السطر التقارير وعمل تحديث له. 


Me.TBL_EMPTableAdapter.Fill(Me.EMPDBDataSet. TBL_EMP) 
Me.ReportViewer1.SetDisplay Mode(Display Mode.Print Layout) 
Me.ReportViewer1.ZoomMode = ZoomMode.Percent 
Me.ReportViewer1.RefreshReport() 


